1 POKE788,52:POKE792,226:POKE793,252:DATA 0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,F
2 SYS65409:POKE53280,6:PRINTSPC(15)"DATA MAKER"SPC(64)"[159]1991 BY J.ZIMMERMANN"
3 POKE19,1:INPUT"[154]COMMAND:[153]";C$:PRINT:INPUT"[154]FROM   :[153]";AN:PRINT
4 INPUT"[154]TO     :[153]";EN:PRINT:INPUT"[154]1. LINE:[153]";ZN:PRINT:INPUT"[154]STEPS  :[153]";S
5 PRINT:INPUT"[154]0HX/1DC:[153]";F:PRINT:INPUT"[154]INSERT :[153]";IN:POKE19,0:IFS<1THENRUN
6 POKE832,PEEK(45)-2:POKE833,PEEK(46):ONABS((EN<AN)+(ZN<500)+(ZN>63999))GOTO2
7 DIMB$(15):RESTORE:FORI=0TO15:READB$(I):NEXT
8 PRINT"[144][147]":Z$=STR$(ZN):PRINTRIGHT$(Z$,LEN(Z$)-1);:GOSUB19:PRINTC$;" ";
9 W0=PEEK(AN)/16:HI=INT(W0):LO=(W0-HI)*16:WW$=STR$(PEEK(AN))
10 W$=RIGHT$(WW$,LEN(WW$)-1):ONFGOTO11:W$="$"+B$(HI)+B$(LO)
11 PRINTW$",";:AN=AN+1:ONABS(AN=(EN+1))GOTO14:ONABS(PEEK(1219)=32)GOTO9
12 PRINT"[157] ":PRINT"AN="AN"[157]:EN="EN"[157]:ZN="ZN+S"[157]:C$="CHR$(34)C$CHR$(34);
13 PRINT":S="S"[157]:F="F"[157]:GOTO7":PRINT"":POKE631,13:POKE632,13:POKE198,2:END
14 PRINT"[157] ":PRINT"GOTO15":PRINT"":POKE631,13:POKE632,13:POKE198,2:END
15 POKE43,PEEK(832):POKE44,PEEK(833):CLR:POKE19,1:INPUT"[154][147]FILENAME:[153]";F$
16 POKE19,0:PRINT"[150]":F$="@:"+F$:SAVEF$,8,1:POKE43,1:POKE44,8:CLR
17 A=PEEK(832)+PEEK(833)*256:FORI=ATOA+2:POKEI,0:NEXT:POKE45,PEEK(832)+2
18 POKE46,PEEK(833):CLR:RUN
19 ONABS((IN=0)+(IN>10))GOTO20:PRINT":";:FORI=1TOIN:PRINT" ";:NEXT
20 RETURN